home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 1 / Gold Medal Software Volume 1 (Gold Medal) (1994).iso / netutils / in_9312.arj / INTAPP.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-12-01  |  49KB  |  1,482 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Date     DATE001
  20.     Date     DATE002
  21.     Date     DATE003
  22.     Date     DATE004
  23.     Integer  INTEGER001
  24.     Integer  INTEGER002
  25.     Integer  INTEGER003
  26.     Integer  INTEGER004
  27.     Integer  INTEGER005
  28.     String   STRING002
  29.     String   STRING003
  30.     String   STRING004
  31.     String   STRING005
  32.     String   STRING006
  33.     String   STRING007
  34.     String   STRING008
  35.     String   STRING009
  36.     String   STRING010
  37.     String   STRING011
  38.     String   STRING012
  39.     String   STRING013
  40.     String   STRING014
  41.     String   STRING015
  42.     String   STRING016
  43.     String   STRING017
  44.     String   STRING018
  45.     String   STRING019
  46.     String   STRING020
  47.     String   STRING021
  48.     String   STRING022
  49.     String   STRING023
  50.     String   STRING024
  51.     String   STRING025
  52.     String   STRING026
  53.     String   STRING027
  54.     String   STRING028
  55.     String   STRING029
  56.     String   STRING030
  57.     String   STRING031
  58.     String   STRING032
  59.     String   STRING033
  60.     String   STRING034
  61.     String   STRING035
  62.     String   STRING036
  63.     String   STRING037
  64.     String   STRING038
  65.     String   STRING039
  66.     String   STRING040
  67.     String   STRING041
  68.     String   STRING042
  69.     String   STRING043
  70.     String   STRING044
  71.     String   STRING045
  72.     String   STRING046
  73.     String   STRING047
  74.     String   STRING048
  75.     String   STRING049
  76.     String   STRING050
  77.     String   STRING051
  78.     String   STRING052
  79.     String   STRING053
  80.     String   STRING054
  81.     String   STRING055
  82.     String   STRING056
  83.     String   STRING057
  84.     String   STRING058
  85.     String   STRING059
  86.     String   STRING060
  87.     String   STRING061
  88.     String   STRING062
  89.     String   STRING063
  90.     String   STRING064
  91.     String   STRING065
  92.     String   STRING066
  93.  
  94. ;------------------------------------------------------------------------------
  95.  
  96.     GetToken STRING002
  97.     If (STRING002 == "I") STRING003 = "Y"
  98.     DATE001 = Date()
  99.     STRING062 = "2.0"
  100.     STRING016 = "------------------------------------------------------------------------"
  101.     STRING017 = "@X0C-------------------------------------------------------------------------------"
  102.     STRING049 = PPEPath() + "APPLFORM.IN"
  103.     STRING050 = PPEPath() + "NETRULES.IN"
  104.     STRING051 = PPEPath() + "CONFLIST.IN"
  105.     STRING052 = PPEPath() + "NODELIST.IN"
  106.     STRING053 = PPEPath() + "INTELEC!.IN"
  107.     STRING054 = PPEPath() + "CHANGES!.IN"
  108.     STRING055 = PPEPath() + "MODGUIDE.IN"
  109.     STRING065 = PPEPath() + "INTAPP.LST"
  110.     STRING064 = PPEPath() + "INTAPP.ANS"
  111.     If (STRING003 == "Y") Goto LABEL001
  112.     FOpen 1, STRING053, 0, 0
  113.     FGet 1, STRING043
  114.     FGet 1, STRING043
  115.     FGet 1, STRING044
  116.     FClose 1
  117.     DATE002 = Mid(STRING044, 72, 8)
  118.     If (DATE001 >= DATE002) Goto LABEL017
  119.     Goto LABEL002
  120.     :LABEL001
  121.     FOpen 1, STRING053, 0, 0
  122.     FGet 1, STRING043
  123.     FGet 1, STRING043
  124.     FGet 1, STRING043
  125.     FGet 1, STRING044
  126.     FClose 1
  127.     DATE002 = Mid(STRING044, 72, 8)
  128.     If (DATE001 >= DATE002) Goto LABEL017
  129.     :LABEL002
  130.     FOpen 1, STRING052, 0, 0
  131.     FGet 1, STRING043
  132.     FGet 1, STRING043
  133.     FGet 1, STRING043
  134.     FGet 1, STRING043
  135.     FGet 1, STRING043
  136.     FClose 1
  137.     INTEGER003 = Mid(STRING043, 42, 3)
  138.     INTEGER003 = INTEGER003 + 11
  139.     FOpen 1, STRING051, 0, 0
  140.     FGet 1, STRING043
  141.     FGet 1, STRING043
  142.     FGet 1, STRING043
  143.     FGet 1, STRING043
  144.     FClose 1
  145.     INTEGER004 = Mid(STRING043, 47, 3)
  146.     INTEGER004 = INTEGER004 + 1
  147.     GetUser
  148.     STRING040 = Left(U_Addr(0), 24)
  149.     STRING008 = Left(U_Addr(2), 12)
  150.     STRING039 = Left(U_Addr(3), 2)
  151.     STRING011 = Left(U_Addr(4), 7)
  152.     STRING009 = Left(U_Addr(5), 3)
  153.     STRING033 = Left(U_Name(), 17)
  154.     :LABEL003
  155.     Cls
  156.     StartDisp 2
  157.     STRING045 = ""
  158.     INTEGER001 = 0
  159.     STRING029 = ""
  160.     STRING028 = ""
  161.     STRING048 = ""
  162.     PrintLn "         @X0EWelcome to the Intelec Network's  Online Application Generator"
  163.     PrintLn 
  164.     PrintLn "      This version of the Online Application Generator expires on ", DATE002, "@X0B"
  165.     PrintLn 
  166.     PrintLn "    Intelec is one of the leading  QWK format BBS networks  operating today!"
  167.     PrintLn "    We offer conferences covering Issues, Politics, Religion, Current Events"
  168.     PrintLn "    as well as many technical support areas, including direct author support"
  169.     PrintLn "    for many different software products for your users.  Now if this sounds"
  170.     PrintLn "    like a net that you are interested in participating in, then use options"
  171.     PrintLn "    1-6 to see what we are about.  Please use option 7  to apply to Intelec."
  172.     PrintLn "    @X8C*@X0B Intelec has a one-time membership fee of $35 due 10 days from approval"
  173.     PrintLn 
  174.     PrintLn "                        @X0F1 @X0C- @X0EReview the Rules/Guidelines."
  175.     PrintLn "                        @X0F2 @X0C- @X0EReview the Conferences List."
  176.     PrintLn "                        @X0F3 @X0C- @X0EScan for Relay Site Options."
  177.     PrintLn "                        @X0F4 @X0C- @X0ESearch the Network NodeList."
  178.     PrintLn "                        @X0F5 @X0C- @X0EAn Intro to Intelec Network."
  179.     PrintLn "                        @X0F6 @X0C- @X0EConference Changes, History."
  180.     PrintLn "                        @X0F7 @X0C- @X0EProcess Network Application."
  181.     PrintLn 
  182.     InputStr "@X0BSelect 1, 2, 3, 4, 5, 6, 7 or <Enter> to Abort", INTEGER001, 11, 1, Mask_Num(), 2
  183.     If (INTEGER001 == 7) Goto LABEL004
  184.     If (INTEGER001 == 6) Goto LABEL046
  185.     If (INTEGER001 == 5) Goto LABEL047
  186.     If (INTEGER001 == 4) STRING048 = "Y"
  187.     If (INTEGER001 == 4) Goto LABEL034
  188.     If (INTEGER001 == 3) STRING028 = "Y"
  189.     If (INTEGER001 == 2) Goto LABEL018
  190.     If (INTEGER001 == 1) STRING029 = "Y"
  191.     If (INTEGER001 == 1) Goto LABEL014
  192.     If (STRING028 == "Y") Goto LABEL034
  193.     Goto LABEL016
  194.     :LABEL004
  195.     Cls
  196.     STRING030 = "Node     "
  197.     PrintLn "If you are interested in being a any level of HUB for Intelec you should"
  198.     PrintLn "start off as a node first. There are exceptions to this of course but in"
  199.     PrintLn "general it's a rare board that comes into the network as a hub right off"
  200.     PrintLn "the bat. If a board hasn't been relaying very long (less than a year) or"
  201.     PrintLn "if the board does not have much or any previous network mail experience,"
  202.     PrintLn "we prefer that they prove reliable by relaying problem free  for about 2"
  203.     PrintLn "weeks before being granted hub status. Of course, there has to be a need"
  204.     PrintLn "for a hub in the node's region to be approved as a hub. Only the network"
  205.     PrintLn "administrator can approve a member's board  for any level of hub status."
  206.     PrintLn 
  207.     Wait
  208.     :LABEL005
  209.     Cls
  210.     INTEGER001 = 0
  211.     PrintLn "@X0EApproved BBS Software"
  212.     PrintLn "@X0B1) PCBoard  2) Wildcat  3) GAP  4) Spitfire  5) Auntie  6) TriBBS"
  213.     PrintLn 
  214.     InputStr "@X0BSelect 1, 2, 3, 4, 5, 6 or <Enter> to Abort", INTEGER001, 11, 1, Mask_Num(), 2
  215.     If (INTEGER001 == 0) Goto LABEL003
  216.     If (INTEGER001 == 1) STRING005 = "PCBoard "
  217.     If (INTEGER001 == 1) Goto LABEL006
  218.     If (INTEGER001 == 2) STRING005 = "Wildcat "
  219.     If (INTEGER001 == 2) Goto LABEL006
  220.     If (INTEGER001 == 3) STRING005 = "Gap     "
  221.     If (INTEGER001 == 3) Goto LABEL006
  222.     If (INTEGER001 == 4) STRING005 = "Spitfire"
  223.     If (INTEGER001 == 4) Goto LABEL006
  224.     If (INTEGER001 == 5) STRING005 = "Auntie  "
  225.     If (INTEGER001 == 5) Goto LABEL006
  226.     If (INTEGER001 == 6) STRING005 = "TriBBS  "
  227.     If (INTEGER001 == 6) Goto LABEL006
  228.     Goto LABEL015
  229.     :LABEL006
  230.     Cls
  231.     INTEGER001 = 0
  232.     PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  233.     PrintLn " @X5D│  @X51Networking Software                                                       @X50│@X07"
  234.     PrintLn " @X5D│                   @X511  @X5FRoseMail            @X517  @X5FBG QWK                         @X50│@X07"
  235.     PrintLn " @X5D│                   @X512  @X5FRnet                @X518  @X5FGT QWK                         @X50│@X07"
  236.     PrintLn " @X5D│                   @X513  @X5FQnet                @X519  @X5FJnet                           @X50│@X07"
  237.     PrintLn " @X5D│                   @X514  @X5FCam-Mail            @X5110 @X5FTriNet                         @X50│@X07"
  238.     PrintLn " @X5D│                   @X515  @X5FTnet                @X5111 @X5FQWiKerNet                      @X50│@X07"
  239.     PrintLn " @X5D│                   @X516  @X5FGapQWK              @X5112 @X5FMK Net                         @X50│@X07"
  240.     PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  241.     InputStr "Select 1 through 12 or <Enter> to Abort", INTEGER001, 11, 2, Mask_Num(), 2
  242.     If (INTEGER001 == 0) Goto LABEL003
  243.     If (INTEGER001 == 1) STRING006 = "RoseMail "
  244.     If (INTEGER001 == 2) STRING006 = "Rnet     "
  245.     If (INTEGER001 == 3) STRING006 = "Qnet     "
  246.     If (INTEGER001 == 4) STRING006 = "Cam-Mail "
  247.     If (INTEGER001 == 5) STRING006 = "Tnet     "
  248.     If (INTEGER001 == 6) STRING006 = "GapQWK   "
  249.     If (INTEGER001 == 7) STRING006 = "BG QWK   "
  250.     If (INTEGER001 == 8) STRING006 = "GT QWK   "
  251.     If (INTEGER001 == 9) STRING006 = "Jnet     "
  252.     If (INTEGER001 == 10) STRING006 = "TriNet   "
  253.     If (INTEGER001 == 11) STRING006 = "QWiKerNet"
  254.     If (INTEGER001 == 12) STRING006 = "MK Net   "
  255.     If (INTEGER001 == 0) Goto LABEL003
  256.     If (STRING006 == "RoseMail ") Goto LABEL007
  257.     Goto LABEL008
  258.     :LABEL007
  259.     PrintLn 
  260.     InputStr "@X0BWhat's your RoseMail @X0EReg No. @X0B(ex: mine is 1114)@X0F", STRING038, 11, 8, Mask_Num(), 2
  261.     If (STRING038 == "") Goto LABEL007
  262.     PrintLn 
  263.     InputStr "@X0BWhat's your RoseMail @X0EID Code @X0B(ex: mine is INTELEC)@X0F", STRING037, 11, 24, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2 + 8
  264.     If (STRING037 == "") Goto LABEL007
  265.     If (Len(STRING038) == 4) STRING012 = "0000"
  266.     If (Len(STRING038) == 5) STRING012 = "000"
  267.     If (Len(STRING038) == 6) STRING012 = "00"
  268.     If (Len(STRING038) == 7) STRING012 = "0"
  269.     If (Len(STRING038) == 8) STRING012 = ""
  270.     STRING013 = STRING038
  271.     STRING038 = STRING012 + STRING013
  272.     If (Len(STRING037) == 1) STRING015 = "                       "
  273.     If (Len(STRING037) == 2) STRING015 = "                      "
  274.     If (Len(STRING037) == 3) STRING015 = "                     "
  275.     If (Len(STRING037) == 4) STRING015 = "                    "
  276.     If (Len(STRING037) == 5) STRING015 = "                   "
  277.     If (Len(STRING037) == 6) STRING015 = "                  "
  278.     If (Len(STRING037) == 7) STRING015 = "                 "
  279.     If (Len(STRING037) == 8) STRING015 = "                "
  280.     If (Len(STRING037) == 9) STRING015 = "               "
  281.     If (Len(STRING037) == 10) STRING015 = "              "
  282.     If (Len(STRING037) == 11) STRING015 = "             "
  283.     If (Len(STRING037) == 12) STRING015 = "            "
  284.     If (Len(STRING037) == 13) STRING015 = "           "
  285.     If (Len(STRING037) == 14) STRING015 = "          "
  286.     If (Len(STRING037) == 15) STRING015 = "         "
  287.     If (Len(STRING037) == 16) STRING015 = "        "
  288.     If (Len(STRING037) == 17) STRING015 = "       "
  289.     If (Len(STRING037) == 18) STRING015 = "      "
  290.     If (Len(STRING037) == 19) STRING015 = "     "
  291.     If (Len(STRING037) == 20) STRING015 = "    "
  292.     If (Len(STRING037) == 21) STRING015 = "   "
  293.     If (Len(STRING037) == 22) STRING015 = "  "
  294.     If (Len(STRING037) == 23) STRING015 = " "
  295.     If (Len(STRING037) == 24) STRING015 = ""
  296.     :LABEL008
  297.     Cls
  298.     INTEGER001 = 0
  299.     PrintLn "@X0DIntelec Network Hub List (Super Regionals) Screen @X0F1 @X0Dof @X0F3"
  300.     Gosub LABEL059
  301.     PrintLn " 1 P Intelec Online    516-868-0662 NY ║16 W Starnet BBS       601-981-1394 MS "
  302.     PrintLn " 2 P Darby Research    814-825-7905 PA ║17 P Toad Hall         415-595-2427 CA "
  303.     PrintLn " 3 W Compuphile BBS    814-337-2971 PA ║18 P W. Los Angeles    310-838-9229 CA "
  304.     PrintLn " 4 P Bandit BBS        813-977-5600 FL ║19 G Seaside BBS       805-964-4766 CA "
  305.     PrintLn " 5 W CDE BBS           904-483-2498 FL ║20 G The Bit Stream    916-824-1939 CA "
  306.     PrintLn " 6 P Moondog BBS       718-692-2498 NY ║21 P Bytes n Bits      201-437-4355 NJ "
  307.     PrintLn " 7 P North Sea Operat. 516-283-9631 NY ║22 A Lake Symington    206-830-4765 WA "
  308.     PrintLn " 8 P The Dragstrip     708-489-0031 IL ║23 P Land-Enchantment  505-857-0836 NM "
  309.     PrintLn " 9 P Haven of Rest     612-474-0724 MN ║24 P Rose Media        416-733-2285 ONT"
  310.     PrintLn "10 P Data-Comp         615-690-7968 TN ║25 P Synapse BBS       819-561-5268 QUE"
  311.     PrintLn "11 P PVCC User Group   413-568-4466 MA ║26 W Open Modem BBS    902-835-0747 NOV"
  312.     PrintLn "12 <Blank Selection>   ___-___-____ -- ║27 P Skyship BBS      35-11-3527623 POR"
  313.     PrintLn "13 P Lunatic Fringe    214-235-5288 TX ║28 P Did'BBS          33-1 40218891 FRA"
  314.     PrintLn "14 W A-Mega BBS        713-488-6077 TX ║29 P Saudi BBS         002-667-2293 SAU"
  315.     PrintLn "15 W Aida's Airboat    713-856-7010 TX ║30"
  316.     PrintLn 
  317.     InputStr "@X0BSelect a Hub Number, or <Enter> for next screen", INTEGER001, 11, 2, Mask_Num(), 2
  318.     If (INTEGER001 == 0) Goto LABEL009
  319.     If (INTEGER001 == 1) STRING031 = "Intelec Online   "
  320.     If (INTEGER001 == 2) STRING031 = "Darby Research   "
  321.     If (INTEGER001 == 3) STRING031 = "Compuphile BBS   "
  322.     If (INTEGER001 == 4) STRING031 = "Bandit BBS       "
  323.     If (INTEGER001 == 5) STRING031 = "CDE BBS          "
  324.     If (INTEGER001 == 6) STRING031 = "Moondog BBS      "
  325.     If (INTEGER001 == 7) STRING031 = "North Sea Operat."
  326.     If (INTEGER001 == 8) STRING031 = "The Dragstrip    "
  327.     If (INTEGER001 == 9) STRING031 = "Haven of Rest    "
  328.     If (INTEGER001 == 10) STRING031 = "Data-Comp        "
  329.     If (INTEGER001 == 11) STRING031 = "PVCC User Group  "
  330.     If (INTEGER001 == 12) STRING031 = "Blank Selection  "
  331.     If (INTEGER001 == 13) STRING031 = "Lunatic Fringe   "
  332.     If (INTEGER001 == 14) STRING031 = "A-Mega BBS       "
  333.     If (INTEGER001 == 15) STRING031 = "Aida's Airboat   "
  334.     If (INTEGER001 == 16) STRING031 = "Starnet BBS      "
  335.     If (INTEGER001 == 17) STRING031 = "Toad Hall        "
  336.     If (INTEGER001 == 18) STRING031 = "W. Los Angeles   "
  337.     If (INTEGER001 == 19) STRING031 = "Seaside BBS      "
  338.     If (INTEGER001 == 20) STRING031 = "The Bit Stream   "
  339.     If (INTEGER001 == 21) STRING031 = "Bytes n Bits     "
  340.     If (INTEGER001 == 22) STRING031 = "Lake Symington   "
  341.     If (INTEGER001 == 23) STRING031 = "Land-Enchantment "
  342.     If (INTEGER001 == 24) STRING031 = "Rose Media       "
  343.     If (INTEGER001 == 25) STRING031 = "Synapse BBS      "
  344.     If (INTEGER001 == 26) STRING031 = "Open Modem BBS   "
  345.     If (INTEGER001 == 27) STRING031 = "Skyship BBS      "
  346.     If (INTEGER001 == 28) STRING031 = "Did'BBS          "
  347.     If (INTEGER001 == 29) STRING031 = "Saudi BBS        "
  348.     If (INTEGER001 > 29) Goto LABEL058
  349.     Goto LABEL011
  350.     :LABEL009
  351.     Cls
  352.     INTEGER001 = 0
  353.     PrintLn "@X0DIntelec Network Hub List  (Regional Hubs)  Screen @X0F2 @X0Dof @X0F3"
  354.     Gosub LABEL059
  355.     PrintLn " 1 P Academia BBS      609-383-9400 NJ ║16 "
  356.     PrintLn " 2 W Brinkmans Hollow  717-689-3123 PA ║17 "
  357.     PrintLn " 3 P Hoosier Hideaway  814-866-6475 PA ║18 "
  358.     PrintLn " 4 P Westside BBS      814-459-8901 PA ║19 "
  359.     PrintLn " 5 P The Mystical BBS  814-899-1767 PA ║20 "
  360.     PrintLn " 6 W Happy Hacker      216-992-6930 OH ║21 "
  361.     PrintLn " 7 P Sound Off BBS     515-282-1624 IA ║22 "
  362.     PrintLn " 8 P Discovery BBS     714-457-0359 CA ║23 "
  363.     PrintLn " 9 P Edisons Workshop  916-275-5361 CA ║24 "
  364.     PrintLn "10 G The Door BBS      407-682-3132 FL ║25 "
  365.     PrintLn "11 P The MBT BBS       703-953-0640 VA ║26 "
  366.     PrintLn "12 O Emergency Service 808-621-4711 HI ║27 "
  367.     PrintLn "13 P Data Tech Canada  519-473-7685 ONT║28 "
  368.     PrintLn "14 W SouthWest BBS     818-285-8684 CA ║29 "
  369.     PrintLn "15                                     ║30 "
  370.     PrintLn 
  371.     InputStr "@X0BSelect a Hub Number, or <Enter> for next screen", INTEGER001, 11, 2, Mask_Num(), 2
  372.     If (INTEGER001 == 0) Goto LABEL010
  373.     If (INTEGER001 == 1) STRING031 = "Academia BBS     "
  374.     If (INTEGER001 == 2) STRING031 = "Brinkmans Hollow "
  375.     If (INTEGER001 == 3) STRING031 = "Hoosier Hideaway "
  376.     If (INTEGER001 == 4) STRING031 = "Westside BBS     "
  377.     If (INTEGER001 == 5) STRING031 = "The Mystical BBS "
  378.     If (INTEGER001 == 6) STRING031 = "Happy Hacker     "
  379.     If (INTEGER001 == 7) STRING031 = "Sound Off BBS    "
  380.     If (INTEGER001 == 8) STRING031 = "Discovery BBS    "
  381.     If (INTEGER001 == 9) STRING031 = "Edisons Workshop "
  382.     If (INTEGER001 == 10) STRING031 = "The Door BBS     "
  383.     If (INTEGER001 == 11) STRING031 = "The MBT BBS      "
  384.     If (INTEGER001 == 12) STRING031 = "Emergency Service"
  385.     If (INTEGER001 == 13) STRING031 = "Data Tech Canada "
  386.     If (INTEGER001 == 14) STRING031 = "SouthWest BBS    "
  387.     If (INTEGER001 > 14) Goto LABEL058
  388.     Goto LABEL011
  389.     :LABEL010
  390.     Cls
  391.     INTEGER001 = 0
  392.     PrintLn "@X0DIntelec Network Hub List      (Hubs)       Screen @X0F3 @X0Dof @X0F3"
  393.     Gosub LABEL059
  394.     PrintLn " 1 P Big Apple BBS     516-536-1546 NY ║16 P Granite Cities    612-654-8372 MN "
  395.     PrintLn " 2 P Crystal Palace    716-264-9383 NY ║17 P The Hub! BBS      918-627-0923 OK "
  396.     PrintLn " 3 P T.O.I.L. BBS      315-331-1556 NY ║18 P The Rat Trap      801-965-0401 UT "
  397.     PrintLn " 4 P Gameroom Deluxe   914-343-5076 NY ║19 W NW Comp Support   503-620-5910 OR "
  398.     PrintLn " 5 W PC Info System    516-922-5153 NY ║20 P Primetime Net     916-424-1727 CA "
  399.     PrintLn " 6 G Cougar's Kingdom  716-695-1937 NY ║21 P Skeleton Crew BBS 310-306-5134 CA "
  400.     PrintLn " 7 P Design One BBS    814-459-6756 PA ║22 T WheelchairExpress 707-464-3705 CA "
  401.     PrintLn " 8 P DRS East          508-791-9309 MA ║23 P French Connection 206-745-6026 WA "
  402.     PrintLn " 9 P Wingit BBS        904-386-8693 FL ║24"
  403.     PrintLn "10 S Enchanted Forest  601-798-5685 FL ║25"
  404.     PrintLn "11 A Potpourri BBS     912-729-7627 GA ║26"
  405.     PrintLn "12 W Ginger's Port     614-268-9456 OH ║27"
  406.     PrintLn "13 W The Mad House     216-593-3446 OH ║28"
  407.     PrintLn "14 P HoosierHideaway W 219-728-9598 IN ║29"
  408.     PrintLn "15 P User Friendly     317-784-8401 IN ║30"
  409.     PrintLn 
  410.     InputStr "@X0BSelect a Hub Number, or <Enter> for top of list", INTEGER001, 11, 2, Mask_Num(), 2
  411.     If (INTEGER001 == 0) Goto LABEL008
  412.     If (INTEGER001 == 1) STRING031 = "Big Apple BBS    "
  413.     If (INTEGER001 == 2) STRING031 = "Crystal Palace   "
  414.     If (INTEGER001 == 3) STRING031 = "T.O.I.L. BBS     "
  415.     If (INTEGER001 == 4) STRING031 = "Gameroom Deluxe  "
  416.     If (INTEGER001 == 5) STRING031 = "PC Info System   "
  417.     If (INTEGER001 == 6) STRING031 = "Cougar's Kingdom "
  418.     If (INTEGER001 == 7) STRING031 = "Design One BBS   "
  419.     If (INTEGER001 == 8) STRING031 = "DRS East         "
  420.     If (INTEGER001 == 9) STRING031 = "Wingit BBS       "
  421.     If (INTEGER001 == 10) STRING031 = "Enchanted Forest "
  422.     If (INTEGER001 == 11) STRING031 = "Potpourri BBS    "
  423.     If (INTEGER001 == 12) STRING031 = "Ginger's Port    "
  424.     If (INTEGER001 == 13) STRING031 = "The Mad House    "
  425.     If (INTEGER001 == 14) STRING031 = "HoosierHideaway W"
  426.     If (INTEGER001 == 15) STRING031 = "User Friendly    "
  427.     If (INTEGER001 == 16) STRING031 = "Granite Cities   "
  428.     If (INTEGER001 == 17) STRING031 = "The Hub! BBS     "
  429.     If (INTEGER001 == 18) STRING031 = "The Rat Trap     "
  430.     If (INTEGER001 == 19) STRING031 = "NW Comp Support  "
  431.     If (INTEGER001 == 20) STRING031 = "Primetime Net    "
  432.     If (INTEGER001 == 21) STRING031 = "Skeleton Crew BBS"
  433.     If (INTEGER001 == 22) STRING031 = "WheelchairExpress"
  434.     If (INTEGER001 == 23) STRING031 = "French Connection"
  435.     If (INTEGER001 > 23) Goto LABEL058
  436.     :LABEL011
  437.     Cls
  438.     InputStr "@X0BWhat is the name of your BBS (17 chars only)", STRING004, 11, 17, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2
  439.     If (STRING004 == "") Goto LABEL015
  440.     If (Len(STRING004) == 1) STRING014 = "                "
  441.     If (Len(STRING004) == 2) STRING014 = "               "
  442.     If (Len(STRING004) == 3) STRING014 = "              "
  443.     If (Len(STRING004) == 4) STRING014 = "             "
  444.     If (Len(STRING004) == 5) STRING014 = "            "
  445.     If (Len(STRING004) == 6) STRING014 = "           "
  446.     If (Len(STRING004) == 7) STRING014 = "          "
  447.     If (Len(STRING004) == 8) STRING014 = "         "
  448.     If (Len(STRING004) == 9) STRING014 = "        "
  449.     If (Len(STRING004) == 10) STRING014 = "       "
  450.     If (Len(STRING004) == 11) STRING014 = "      "
  451.     If (Len(STRING004) == 12) STRING014 = "     "
  452.     If (Len(STRING004) == 13) STRING014 = "    "
  453.     If (Len(STRING004) == 14) STRING014 = "   "
  454.     If (Len(STRING004) == 15) STRING014 = "  "
  455.     If (Len(STRING004) == 16) STRING014 = " "
  456.     If (Len(STRING004) == 17) STRING014 = ""
  457.     If (STRING003 == "Y") Then
  458.         STRING010 = "              "
  459.     Else
  460.         STRING010 = "   -   -      "
  461.     Endif
  462.     InputStr "@X0BWhat is your BBS's phone number", STRING010, 11, 14, Mask_Num() + "-", 2 + 128 + 1024
  463.     If (Len(STRING010) == 8) STRING020 = "      "
  464.     If (Len(STRING010) == 9) STRING020 = "     "
  465.     If (Len(STRING010) == 10) STRING020 = "    "
  466.     If (Len(STRING010) == 11) STRING020 = "   "
  467.     If (Len(STRING010) == 12) STRING020 = "  "
  468.     If (Len(STRING010) == 13) STRING020 = " "
  469.     If (Len(STRING010) == 14) STRING020 = ""
  470.     If (Len(STRING010) < 8) Goto LABEL015
  471.     INTEGER001 = 0
  472.     PrintLn 
  473.     PrintLn 
  474.     PrintLn "@X0EWhat modem is on your BBS phone number: @X0F", STRING010, "@X0B"
  475.     PrintLn "1) v.32bis  2) USR HST   3) D/S 14.4   4) D/S 16.8   5) ZyXel"
  476.     PrintLn "6) Other  (If your modem isn't one of the above modem types)."
  477.     InputStr "Select 1, 2, 3, 4, 5, 6 or <Enter> to Abort", INTEGER001, 11, 1, Mask_Num(), 2
  478.     If (INTEGER001 == 0) Goto LABEL003
  479.     If (INTEGER001 == 1) STRING032 = "B) v.32bis "
  480.     If (INTEGER001 == 2) STRING032 = "H) USR HST "
  481.     If (INTEGER001 == 3) STRING032 = "D) D/S 14.4"
  482.     If (INTEGER001 == 4) STRING032 = "U) D/S 16.8"
  483.     If (INTEGER001 == 5) STRING032 = "Z) ZyXel   "
  484.     If (INTEGER001 == 6) STRING032 = "O) Other   "
  485.     If (INTEGER001 == 7) Goto LABEL058
  486.     If (INTEGER001 == 8) Goto LABEL058
  487.     If (INTEGER001 == 9) Goto LABEL058
  488.     INTEGER001 = 0
  489.     PrintLn 
  490.     PrintLn 
  491.     PrintLn "@X0EYears Online@X0B"
  492.     PrintLn "1) 1 Year       2) 2 Years       3) 3 Years       4) 4 Years"
  493.     PrintLn "5) 5 Years      6) 6 Years       7) 7 Years       8) Over 8!"
  494.     InputStr "Select 1, 2, 3, 4, 5, 6, 7, 8 or <Enter> to Abort", INTEGER001, 11, 1, Mask_Num(), 2
  495.     If (INTEGER001 == 0) Goto LABEL058
  496.     If (INTEGER001 == 1) STRING042 = "1 Year  "
  497.     If (INTEGER001 == 2) STRING042 = "2 Years "
  498.     If (INTEGER001 == 3) STRING042 = "3 Years "
  499.     If (INTEGER001 == 4) STRING042 = "4 Years "
  500.     If (INTEGER001 == 5) STRING042 = "5 Years "
  501.     If (INTEGER001 == 6) STRING042 = "6 Years "
  502.     If (INTEGER001 == 7) STRING042 = "7 Years "
  503.     If (INTEGER001 == 8) STRING042 = "8+ Years"
  504.     If (INTEGER001 == 9) Goto LABEL058
  505.     INTEGER001 = 0
  506.     PrintLn 
  507.     PrintLn 
  508.     PrintLn "@X0EUsers On Your BBS@X0B"
  509.     PrintLn "1) 75-100       2) 101-200       3) 201-300       4) 301-400"
  510.     PrintLn "5) 401-600      6) 601-1000      7) 1001-2500     8) 2500+"
  511.     InputStr "Select 1, 2, 3, 4, 5, 6, 7, 8 or <Enter> to Abort", INTEGER001, 11, 1, Mask_Num(), 2
  512.     If (INTEGER001 == 0) Goto LABEL003
  513.     If (INTEGER001 == 1) STRING041 = "75-100   "
  514.     If (INTEGER001 == 2) STRING041 = "101-200  "
  515.     If (INTEGER001 == 3) STRING041 = "201-300  "
  516.     If (INTEGER001 == 4) STRING041 = "301-400  "
  517.     If (INTEGER001 == 5) STRING041 = "401-600  "
  518.     If (INTEGER001 == 6) STRING041 = "601-1000 "
  519.     If (INTEGER001 == 7) STRING041 = "1001-2500"
  520.     If (INTEGER001 == 8) STRING041 = "2500+    "
  521.     If (INTEGER001 == 9) Goto LABEL058
  522.     Cls
  523.     Color 11
  524.     InputStr "What city is the BBS in   ", STRING008, 11, 12, Mask_Alpha() + Mask_Ascii(), 2 + 128
  525.     If (STRING008 == "") Goto LABEL015
  526.     InputStr "What ST/Prov is the BBS in", STRING039, 11, 3, Mask_Alpha() + Mask_Ascii(), 2 + 128
  527.     If (STRING039 == "") Goto LABEL015
  528.     InputStr "What country is the BBS in", STRING009, 11, 15, Mask_Alpha() + Mask_Ascii(), 2 + 8 + 128
  529.     If (Len(STRING009) == 3) STRING025 = "            "
  530.     If (Len(STRING009) == 4) STRING025 = "           "
  531.     If (Len(STRING009) == 5) STRING025 = "          "
  532.     If (Len(STRING009) == 6) STRING025 = "         "
  533.     If (Len(STRING009) == 7) STRING025 = "        "
  534.     If (Len(STRING009) == 8) STRING025 = "       "
  535.     If (Len(STRING009) == 9) STRING025 = "      "
  536.     If (Len(STRING009) == 10) STRING025 = "     "
  537.     If (Len(STRING009) == 11) STRING025 = "    "
  538.     If (Len(STRING009) == 12) STRING025 = "   "
  539.     If (Len(STRING009) == 13) STRING025 = "  "
  540.     If (Len(STRING009) == 14) STRING025 = " "
  541.     If (Len(STRING009) == 15) STRING025 = ""
  542.     If (Len(STRING009) < 3) Goto LABEL015
  543.     PrintLn 
  544.     InputStr "Your name on BBS, 17 chars", STRING033, 11, 17, Mask_Alpha() + Mask_Ascii(), 2 + 8 + 128
  545.     If (Len(STRING033) == 5) STRING022 = "            "
  546.     If (Len(STRING033) == 6) STRING022 = "           "
  547.     If (Len(STRING033) == 7) STRING022 = "          "
  548.     If (Len(STRING033) == 8) STRING022 = "         "
  549.     If (Len(STRING033) == 9) STRING022 = "        "
  550.     If (Len(STRING033) == 10) STRING022 = "       "
  551.     If (Len(STRING033) == 11) STRING022 = "      "
  552.     If (Len(STRING033) == 12) STRING022 = "     "
  553.     If (Len(STRING033) == 13) STRING022 = "    "
  554.     If (Len(STRING033) == 14) STRING022 = "   "
  555.     If (Len(STRING033) == 15) STRING022 = "  "
  556.     If (Len(STRING033) == 16) STRING022 = " "
  557.     If (Len(STRING033) == 17) STRING022 = ""
  558.     If (Len(STRING033) < 5) Goto LABEL015
  559.     If (STRING003 == "Y") Then
  560.         STRING027 = "              "
  561.     Else
  562.         STRING027 = "   -   -      "
  563.     Endif
  564.     InputStr "What is your voice phone #", STRING027, 11, 14, Mask_Num() + "-", 2 + 128 + 1024
  565.     If (Len(STRING027) == 8) STRING021 = "      "
  566.     If (Len(STRING027) == 9) STRING021 = "     "
  567.     If (Len(STRING027) == 10) STRING021 = "    "
  568.     If (Len(STRING027) == 11) STRING021 = "   "
  569.     If (Len(STRING027) == 12) STRING021 = "  "
  570.     If (Len(STRING027) == 13) STRING021 = " "
  571.     If (Len(STRING027) == 14) STRING021 = ""
  572.     If (Len(STRING027) < 8) Goto LABEL015
  573.     STRING018 = "  -  -  "
  574.     InputStr "What is your Date of Birth", STRING018, 11, 8, Mask_Num() + "-", 2 + 128 + 1024
  575.     If (Len(STRING018) < 8) Goto LABEL015
  576.     InputStr "What's your Street Address", STRING040, 11, 24, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2 + 128
  577.     If (Len(STRING040) == 9) STRING023 = "               "
  578.     If (Len(STRING040) == 10) STRING023 = "              "
  579.     If (Len(STRING040) == 11) STRING023 = "             "
  580.     If (Len(STRING040) == 12) STRING023 = "            "
  581.     If (Len(STRING040) == 13) STRING023 = "           "
  582.     If (Len(STRING040) == 14) STRING023 = "          "
  583.     If (Len(STRING040) == 15) STRING023 = "         "
  584.     If (Len(STRING040) == 16) STRING023 = "        "
  585.     If (Len(STRING040) == 17) STRING023 = "       "
  586.     If (Len(STRING040) == 18) STRING023 = "      "
  587.     If (Len(STRING040) == 19) STRING023 = "     "
  588.     If (Len(STRING040) == 20) STRING023 = "    "
  589.     If (Len(STRING040) == 21) STRING023 = "   "
  590.     If (Len(STRING040) == 22) STRING023 = "  "
  591.     If (Len(STRING040) == 23) STRING023 = " "
  592.     If (Len(STRING040) == 24) STRING023 = ""
  593.     If (Len(STRING040) < 9) Goto LABEL015
  594.     InputStr "In what city do you reside", STRING008, 11, 12, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2 + 8 + 128
  595.     If (STRING008 == "") Goto LABEL015
  596.     InputStr "And in what state/province", STRING039, 11, 3, Mask_Alpha(), 2 + 8 + 128
  597.     If (STRING039 == "") Goto LABEL015
  598.     If (Len(STRING008) + Len(STRING039) == 5) STRING024 = "          "
  599.     If (Len(STRING008) + Len(STRING039) == 6) STRING024 = "         "
  600.     If (Len(STRING008) + Len(STRING039) == 7) STRING024 = "        "
  601.     If (Len(STRING008) + Len(STRING039) == 8) STRING024 = "       "
  602.     If (Len(STRING008) + Len(STRING039) == 9) STRING024 = "      "
  603.     If (Len(STRING008) + Len(STRING039) == 10) STRING024 = "     "
  604.     If (Len(STRING008) + Len(STRING039) == 11) STRING024 = "    "
  605.     If (Len(STRING008) + Len(STRING039) == 12) STRING024 = "   "
  606.     If (Len(STRING008) + Len(STRING039) == 13) STRING024 = "  "
  607.     If (Len(STRING008) + Len(STRING039) == 14) STRING024 = " "
  608.     If (Len(STRING008) + Len(STRING039) == 15) STRING024 = ""
  609.     InputStr "Please enter your Zip code", STRING011, 11, 7, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 8 + 128
  610.     If (Len(STRING011) == 1) STRING019 = "      "
  611.     If (Len(STRING011) == 2) STRING019 = "     "
  612.     If (Len(STRING011) == 3) STRING019 = "    "
  613.     If (Len(STRING011) == 4) STRING019 = "   "
  614.     If (Len(STRING011) == 5) STRING019 = "  "
  615.     If (Len(STRING011) == 6) STRING019 = " "
  616.     If (Len(STRING011) == 7) STRING019 = ""
  617.     If (STRING011 == "") Goto LABEL015
  618.     :LABEL012
  619.     Cls
  620.     Color 11
  621.     PrintLn "Intelec has a network membership fee, a one-time charge of only $35 (US)"
  622.     PrintLn "If approved, this fee must be forwarded to us (see rules) within 10 days"
  623.     PrintLn "or else mail relays can be discontinued. If outside the U.S.  payment is"
  624.     PrintLn "to be made in US currency, forwarded via registered mail only. Net Mgmt."
  625.     PrintLn 
  626.     Color 15
  627.     PrintLn "Please make sure you have read our network rules file, it's required...."
  628.     PrintLn 
  629.     Color 11
  630.     PrintLn "You will need to make an account on your BBS called either INTELEC ADMIN"
  631.     PrintLn "or CLIFF WATKINS. This will be used for either reviewing the board if we"
  632.     PrintLn "aren't familiar with your system or for direct contacts from the Intelec"
  633.     PrintLn "Network Admin. Make this account and tell us what password you assigned:@X0B"
  634.     PrintLn 
  635.     InputStr "What password as defined above", STRING034, 11, 8, Mask_Pwd(), 2 + 1 + 128
  636.     If (Len(STRING034) == 1) STRING026 = "       "
  637.     If (Len(STRING034) == 2) STRING026 = "      "
  638.     If (Len(STRING034) == 3) STRING026 = "     "
  639.     If (Len(STRING034) == 4) STRING026 = "    "
  640.     If (Len(STRING034) == 5) STRING026 = "   "
  641.     If (Len(STRING034) == 6) STRING026 = "  "
  642.     If (Len(STRING034) == 7) STRING026 = " "
  643.     If (Len(STRING034) == 8) STRING026 = ""
  644.     If (Len(STRING034) < 1) Goto LABEL015
  645.     InputStr "Please type password again....", STRING035, 11, 8, Mask_Pwd(), 2 + 1 + 128
  646.     If (STRING034 == STRING035) Goto LABEL013
  647.     PrintLn 
  648.     PrintLn "@X8C* @X0BPasswords did not match @X8C*@X07"
  649.     PrintLn 
  650.     Wait
  651.     STRING034 = ""
  652.     STRING035 = ""
  653.     Goto LABEL012
  654.     :LABEL013
  655.     INTEGER001 = 0
  656.     PrintLn 
  657.     InputStr "Is this account for @X0F1@X0B) INTELEC ADMIN or @X0F2@X0B) CLIFF WATKINS", INTEGER001, 11, 1, Mask_Num(), 2
  658.     If (INTEGER001 == 1) STRING036 = "(IN)"
  659.     If (INTEGER001 == 2) STRING036 = "(CW)"
  660.     If (INTEGER001 == 0) Goto LABEL015
  661.     :LABEL014
  662.     STRING045 = ""
  663.     If (STRING029 == "Y") Then
  664.         Cls
  665.         DispFile STRING050, 4 + 2 + 1
  666.         PrintLn 
  667.         Wait
  668.         Goto LABEL003
  669.     Endif
  670.     PrintLn 
  671.     InputStr "@X0BHave you read the network rules and agree to comply with all (Y/N)", STRING045, 11, 1, Mask_Alpha(), 2 + 8
  672.     If (STRING045 == "N") Goto LABEL015
  673.     If (STRING045 == "") Goto LABEL015
  674.     If (STRING045 == "Y") STRING007 = "Y"
  675.     Goto LABEL048
  676.     :LABEL015
  677.     Beep
  678.     Cls
  679.     Color 15
  680.     PrintLn "INTAPP.PPE has been ABORTED. If you didn't mean to do so or you had made"
  681.     PrintLn "a mistake or 2, please re-do the application. We would love to hear from"
  682.     PrintLn "you regarding your application to the Intelec Network.    Cliff Watkins."
  683.     Stop
  684.     :LABEL016
  685.     Cls
  686.     Color 15
  687.     PrintLn "Thanks for using the Intelec Network Database!  If there is anything you"
  688.     PrintLn "need or could not find in this database, please ask your SysOp for help."
  689.     Stop
  690.     :LABEL017
  691.     Beep
  692.     Cls
  693.     Color 15
  694.     PrintLn "INTAPP's been ABORTED.  This version expired on @X0E", DATE002, "@X0F, ask your SysOp"
  695.     PrintLn "to install a  CURRENT  Intelec distribution file, they're available from"
  696.     PrintLn "Intelec each month with updated info. We're sorry for the inconvenience."
  697.     Stop
  698.     :LABEL018
  699.     StartDisp 2
  700.     INTEGER001 = 0
  701.     STRING045 = ""
  702.     Cls
  703.     InputStr "@X0BDo you want to @X0FD@X0B)isplay conferences or @X0FS@X0B)earch them", STRING045, 11, 1, Mask_Alpha(), 2 + 8 + 128
  704.     If (STRING045 == "D") Goto LABEL019
  705.     If (STRING045 == "S") Goto LABEL020
  706.     Goto LABEL003
  707.     :LABEL019
  708.     INTEGER005 = 0
  709.     STRING043 = "MODERATOR"
  710.     Cls
  711.     FOpen 1, STRING051, 0, 0
  712.     For INTEGER002 = 1 To INTEGER004
  713.         FGet 1, STRING057
  714.         FGet 1, STRING058
  715.         FGet 1, STRING059
  716.         FGet 1, STRING060
  717.         FGet 1, STRING061
  718.         If (INTEGER005 == 4) INTEGER005 = 0
  719.         If (InStr(Upper(STRING058), STRING043) >= 1) Then
  720.             STRING057 = "@X0A" + STRING057
  721.             STRING058 = "@X0F" + STRING058
  722.             STRING059 = "@X0B" + STRING059
  723.             STRING060 = "@X0B" + STRING060
  724.             STRING061 = "@X0B" + STRING061
  725.             PrintLn Chr(13), STRING057
  726.             PrintLn Chr(13), STRING058
  727.             PrintLn Chr(13), STRING059
  728.             PrintLn Chr(13), STRING060
  729.             PrintLn Chr(13), STRING061
  730.             INTEGER005 = INTEGER005 + 1
  731.             If (INTEGER005 == 4) Then
  732.                 PrintLn 
  733.                 STRING047 = "Y"
  734.                 InputYN "@X0EView next screen (Enter for more)", STRING047, 14
  735.                 If (STRING047 == "N") Goto LABEL057
  736.                 Cls
  737.             Endif
  738.         Endif
  739.     Next
  740.     FClose 1
  741.     PrintLn 
  742.     Wait
  743.     Goto LABEL018
  744.     :LABEL020
  745.     INTEGER005 = 0
  746.     Cls
  747.     INTEGER001 = 0
  748.     PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  749.     PrintLn " @X5D│  @X51Search Criteria                                                           @X50│@X07"
  750.     PrintLn " @X5D│     @X511  @X5FBy Text     @X515  @X5FPrivate Confs    @X51 9  @X5FIssue Confs   @X5113  @X5FReligious     @X50│@X07"
  751.     PrintLn " @X5D│     @X512  @X5FBy Name     @X516  @X5FAdmin Confs      @X5110  @X5FEntertainment @X51    @X5F              @X50│@X07"
  752.     PrintLn " @X5D│     @X513  @X5FBy Number   @X517  @X5FRequired Confs   @X5111  @X5FTech. Confs   @X51    @X5F              @X50│@X07"
  753.     PrintLn " @X5D│     @X514  @X5FBy Date     @X518  @X5FAuthor Support   @X5112  @X5FProgramming   @X51    @X5F              @X50│@X07"
  754.     PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  755.     InputStr "Select: ", INTEGER001, 11, 2, Mask_Num(), 2 + 128
  756.     If (INTEGER001 == 1) Goto LABEL021
  757.     If (INTEGER001 == 2) Goto LABEL022
  758.     If (INTEGER001 == 3) Goto LABEL023
  759.     If (INTEGER001 == 4) Goto LABEL024
  760.     If (INTEGER001 == 5) Goto LABEL025
  761.     If (INTEGER001 == 6) Goto LABEL026
  762.     If (INTEGER001 == 7) Goto LABEL027
  763.     If (INTEGER001 == 8) Goto LABEL028
  764.     If (INTEGER001 == 9) Goto LABEL029
  765.     If (INTEGER001 == 10) Goto LABEL030
  766.     If (INTEGER001 == 11) Goto LABEL031
  767.     If (INTEGER001 == 12) Goto LABEL032
  768.     If (INTEGER001 == 13) Goto LABEL033
  769.     Goto LABEL018
  770.     :LABEL021
  771.     STRING045 = ""
  772.     Cls
  773.     InputStr "@X0BWhat text to search for", STRING045, 11, 25, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 8 + 128
  774.     If (STRING045 == "") Goto LABEL018
  775.     Cls
  776.     FOpen 1, STRING051, 0, 0
  777.     For INTEGER002 = 1 To INTEGER004
  778.         FGet 1, STRING057
  779.         FGet 1, STRING058
  780.         FGet 1, STRING059
  781.         FGet 1, STRING060
  782.         FGet 1, STRING061
  783.         If ((((InStr(Upper(STRING058), STRING045) >= 1) || (InStr(Upper(STRING060), STRING045) >= 1)) || (InStr(Upper(STRING059), STRING045) >= 1)) || (InStr(Upper(STRING061), STRING045) >= 1)) Gosub LABEL056
  784.     Next
  785.     FClose 1
  786.     PrintLn 
  787.     Wait
  788.     Goto LABEL018
  789.     :LABEL022
  790.     STRING045 = ""
  791.     Cls
  792.     InputStr "@X0BWhat moderator or conference name to search for", STRING045, 11, 25, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 8 + 128
  793.     If (STRING045 == "") Goto LABEL018
  794.     Cls
  795.     FOpen 1, STRING051, 0, 0
  796.     For INTEGER002 = 1 To INTEGER004
  797.         FGet 1, STRING057
  798.         FGet 1, STRING058
  799.         FGet 1, STRING059
  800.         FGet 1, STRING060
  801.         FGet 1, STRING061
  802.         If (InStr(Upper(STRING058), STRING045) >= 1) Gosub LABEL056
  803.     Next
  804.     FClose 1
  805.     PrintLn 
  806.     Wait
  807.     Goto LABEL018
  808.     :LABEL023
  809.     INTEGER001 = 0
  810.     Cls
  811.     InputStr "@X0BWhat conference # to search for", INTEGER001, 11, 3, Mask_Num(), 2 + 128
  812.     If (INTEGER001 == 0) Goto LABEL018
  813.     Cls
  814.     FOpen 1, STRING051, 0, 0
  815.     For INTEGER002 = 1 To INTEGER004
  816.         FGet 1, STRING057
  817.         FGet 1, STRING058
  818.         FGet 1, STRING059
  819.         FGet 1, STRING060
  820.         FGet 1, STRING061
  821.         If (Mid(STRING058, 54, 3) == INTEGER001) Gosub LABEL056
  822.     Next
  823.     FClose 1
  824.     PrintLn 
  825.     Wait
  826.     Goto LABEL018
  827.     :LABEL024
  828.     INTEGER001 = 0
  829.     DATE003 = 0
  830.     InputStr "@X0BHow many days back to search", INTEGER001, 11, 3, Mask_Num(), 2 + 128
  831.     DATE003 = Date() - INTEGER001
  832.     If (INTEGER001 == 0) Goto LABEL018
  833.     Cls
  834.     FOpen 1, STRING051, 0, 0
  835.     For INTEGER002 = 1 To INTEGER004
  836.         FGet 1, STRING057
  837.         FGet 1, STRING058
  838.         FGet 1, STRING059
  839.         FGet 1, STRING060
  840.         FGet 1, STRING061
  841.         DATE004 = Mid(STRING058, 60, 8)
  842.         If (DATE004 >= DATE003) Gosub LABEL056
  843.     Next
  844.     FClose 1
  845.     PrintLn 
  846.     Wait
  847.     Goto LABEL018
  848.     :LABEL025
  849.     STRING045 = "P"
  850.     Cls
  851.     FOpen 1, STRING051, 0, 0
  852.     For INTEGER002 = 1 To INTEGER004
  853.         FGet 1, STRING057
  854.         FGet 1, STRING058
  855.         FGet 1, STRING059
  856.         FGet 1, STRING060
  857.         FGet 1, STRING061
  858.         If (Mid(STRING058, 73, 1) == STRING045) Gosub LABEL056
  859.     Next
  860.     FClose 1
  861.     PrintLn 
  862.     Wait
  863.     Goto LABEL018
  864.     :LABEL026
  865.     STRING045 = "A"
  866.     Cls
  867.     FOpen 1, STRING051, 0, 0
  868.     For INTEGER002 = 1 To INTEGER004
  869.         FGet 1, STRING057
  870.         FGet 1, STRING058
  871.         FGet 1, STRING059
  872.         FGet 1, STRING060
  873.         FGet 1, STRING061
  874.         If (Mid(STRING058, 74, 1) == STRING045) Gosub LABEL056
  875.     Next
  876.     FClose 1
  877.     PrintLn 
  878.     Wait
  879.     Goto LABEL018
  880.     :LABEL027
  881.     STRING045 = "R"
  882.     Cls
  883.     FOpen 1, STRING051, 0, 0
  884.     For INTEGER002 = 1 To INTEGER004
  885.         FGet 1, STRING057
  886.         FGet 1, STRING058
  887.         FGet 1, STRING059
  888.         FGet 1, STRING060
  889.         FGet 1, STRING061
  890.         If (Mid(STRING058, 75, 1) == STRING045) Gosub LABEL056
  891.     Next
  892.     FClose 1
  893.     PrintLn 
  894.     Wait
  895.     Goto LABEL018
  896.     :LABEL028
  897.     STRING045 = "S"
  898.     Cls
  899.     FOpen 1, STRING051, 0, 0
  900.     For INTEGER002 = 1 To INTEGER004
  901.         FGet 1, STRING057
  902.         FGet 1, STRING058
  903.         FGet 1, STRING059
  904.         FGet 1, STRING060
  905.         FGet 1, STRING061
  906.         If (Mid(STRING058, 72, 1) == STRING045) Gosub LABEL056
  907.     Next
  908.     FClose 1
  909.     PrintLn 
  910.     Wait
  911.     Goto LABEL018
  912.     :LABEL029
  913.     STRING045 = "I"
  914.     Cls
  915.     FOpen 1, STRING051, 0, 0
  916.     For INTEGER002 = 1 To INTEGER004
  917.         FGet 1, STRING057
  918.         FGet 1, STRING058
  919.         FGet 1, STRING059
  920.         FGet 1, STRING060
  921.         FGet 1, STRING061
  922.         If (Mid(STRING058, 72, 1) == STRING045) Gosub LABEL056
  923.     Next
  924.     FClose 1
  925.     PrintLn 
  926.     Wait
  927.     Goto LABEL018
  928.     :LABEL030
  929.     STRING045 = "G"
  930.     Cls
  931.     FOpen 1, STRING051, 0, 0
  932.     For INTEGER002 = 1 To INTEGER004
  933.         FGet 1, STRING057
  934.         FGet 1, STRING058
  935.         FGet 1, STRING059
  936.         FGet 1, STRING060
  937.         FGet 1, STRING061
  938.         If (Mid(STRING058, 72, 1) == STRING045) Gosub LABEL056
  939.     Next
  940.     FClose 1
  941.     PrintLn 
  942.     Wait
  943.     Goto LABEL018
  944.     :LABEL031
  945.     STRING045 = "T"
  946.     Cls
  947.     FOpen 1, STRING051, 0, 0
  948.     For INTEGER002 = 1 To INTEGER004
  949.         FGet 1, STRING057
  950.         FGet 1, STRING058
  951.         FGet 1, STRING059
  952.         FGet 1, STRING060
  953.         FGet 1, STRING061
  954.         If (Mid(STRING058, 72, 1) == STRING045) Gosub LABEL056
  955.     Next
  956.     FClose 1
  957.     PrintLn 
  958.     Wait
  959.     Goto LABEL018
  960.     :LABEL032
  961.     STRING045 = "C"
  962.     Cls
  963.     FOpen 1, STRING051, 0, 0
  964.     For INTEGER002 = 1 To INTEGER004
  965.         FGet 1, STRING057
  966.         FGet 1, STRING058
  967.         FGet 1, STRING059
  968.         FGet 1, STRING060
  969.         FGet 1, STRING061
  970.         If (Mid(STRING058, 72, 1) == STRING045) Gosub LABEL056
  971.     Next
  972.     FClose 1
  973.     PrintLn 
  974.     Wait
  975.     Goto LABEL018
  976.     :LABEL033
  977.     STRING045 = "E"
  978.     Cls
  979.     FOpen 1, STRING051, 0, 0
  980.     For INTEGER002 = 1 To INTEGER004
  981.         FGet 1, STRING057
  982.         FGet 1, STRING058
  983.         FGet 1, STRING059
  984.         FGet 1, STRING060
  985.         FGet 1, STRING061
  986.         If (Mid(STRING058, 72, 1) == STRING045) Gosub LABEL056
  987.     Next
  988.     FClose 1
  989.     PrintLn 
  990.     Wait
  991.     Goto LABEL018
  992.     :LABEL034
  993.     INTEGER005 = 0
  994.     StartDisp 2
  995.     Cls
  996.     INTEGER001 = 0
  997.     PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  998.     PrintLn " @X5D│  @X51Search Criteria                                                           @X50│@X07"
  999.     PrintLn " @X5D│                   @X511  @X5FBy State            @X515  @X5FBy Modem Type                  @X50│@X07"
  1000.     PrintLn " @X5D│                   @X512  @X5FBy Net S/W          @X516  @X5FBy SR/R/H                      @X50│@X07"
  1001.     PrintLn " @X5D│                   @X513  @X5FBy Area Code        @X517  @X5FBy Text String                 @X50│@X07"
  1002.     PrintLn " @X5D│                   @X514  @X5FBy BBS Type         @X518  @X5FNo Net Fee Yet                 @X50│@X07"
  1003.     PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  1004.     InputStr "Select: ", INTEGER001, 11, 1, Mask_Num(), 2 + 128
  1005.     If (INTEGER001 == 1) Goto LABEL035
  1006.     If (INTEGER001 == 2) Goto LABEL036
  1007.     If (INTEGER001 == 3) Goto LABEL037
  1008.     If (INTEGER001 == 4) Goto LABEL038
  1009.     If (INTEGER001 == 5) Goto LABEL039
  1010.     If (INTEGER001 == 6) Goto LABEL040
  1011.     If (INTEGER001 == 7) Goto LABEL044
  1012.     If (INTEGER001 == 8) Goto LABEL045
  1013.     Goto LABEL003
  1014.     :LABEL035
  1015.     INTEGER005 = 0
  1016.     STRING045 = ""
  1017.     Cls
  1018.     InputStr "@X0BWhat State to search for (2 letter abbrev.)", STRING045, 11, 2, Mask_Alpha(), 2 + 8 + 128
  1019.     If (STRING045 == "") Goto LABEL034
  1020.     Cls
  1021.     FOpen 1, STRING052, 0, 0
  1022.     For INTEGER002 = 1 To INTEGER003
  1023.         FGet 1, STRING056
  1024.         If ((Mid(STRING056, 40, 2) == STRING045) && (STRING048 == "Y")) Gosub LABEL055
  1025.         If ((Mid(STRING056, 40, 2) == STRING045) && (STRING028 == "Y")) Gosub LABEL054
  1026.     Next
  1027.     FClose 1
  1028.     PrintLn 
  1029.     Wait
  1030.     Goto LABEL003
  1031.     :LABEL036
  1032.     INTEGER005 = 0
  1033.     INTEGER001 = 0
  1034.     Cls
  1035.     PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  1036.     PrintLn " @X5D│  @X51Networking Software                                                       @X50│@X07"
  1037.     PrintLn " @X5D│                   @X511  @X5FRoseMail            @X517  @X5FBG QWK                         @X50│@X07"
  1038.     PrintLn " @X5D│                   @X512  @X5FRnet                @X518  @X5FGT QWK                         @X50│@X07"
  1039.     PrintLn " @X5D│                   @X513  @X5FQnet                @X519  @X5FJnet                           @X50│@X07"
  1040.     PrintLn " @X5D│                   @X514  @X5FCam-Mail            @X5110 @X5FTriNet                         @X50│@X07"
  1041.     PrintLn " @X5D│                   @X515  @X5FTnet                @X5111 @X5FQWiKerNet                      @X50│@X07"
  1042.     PrintLn " @X5D│                   @X516  @X5FGapQWK              @X5112 @X5FMK Net                         @X50│@X07"
  1043.     PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  1044.     InputStr "@X0BWhat Net Software to search for", INTEGER001, 11, 2, Mask_Num(), 2 + 128
  1045.     If (INTEGER001 == 0) Goto LABEL034
  1046.     If (INTEGER001 == 1) STRING045 = "RO"
  1047.     If (INTEGER001 == 2) STRING045 = "RN"
  1048.     If (INTEGER001 == 3) STRING045 = "QN"
  1049.     If (INTEGER001 == 4) STRING045 = "CA"
  1050.     If (INTEGER001 == 5) STRING045 = "TN"
  1051.     If (INTEGER001 == 6) STRING045 = "GN"
  1052.     If (INTEGER001 == 7) STRING045 = "BG"
  1053.     If (INTEGER001 == 8) STRING045 = "GT"
  1054.     If (INTEGER001 == 9) STRING045 = "JN"
  1055.     If (INTEGER001 == 10) STRING045 = "TR"
  1056.     If (INTEGER001 == 11) STRING045 = "QK"
  1057.     If (INTEGER001 == 12) STRING045 = "MK"
  1058.     If (INTEGER001 == 13) STRING045 = "??"
  1059.     Cls
  1060.     FOpen 1, STRING052, 0, 0
  1061.     For INTEGER002 = 1 To INTEGER003
  1062.         FGet 1, STRING056
  1063.         If ((Mid(STRING056, 78, 2) == STRING045) && (STRING048 == "Y")) Gosub LABEL055
  1064.         If ((Mid(STRING056, 78, 2) == STRING045) && (STRING048 == "")) Gosub LABEL054
  1065.     Next
  1066.     FClose 1
  1067.     STRING045 = ""
  1068.     PrintLn 
  1069.     Wait
  1070.     Goto LABEL003
  1071.     :LABEL037
  1072.     INTEGER005 = 0
  1073.     INTEGER001 = 0
  1074.     Cls
  1075.     InputStr "@X0BWhat Area Code to search for", INTEGER001, 11, 3, Mask_Num(), 2 + 128
  1076.     If (INTEGER001 == 0) Goto LABEL034
  1077.     Cls
  1078.     FOpen 1, STRING052, 0, 0
  1079.     For INTEGER002 = 1 To INTEGER003
  1080.         FGet 1, STRING056
  1081.         If ((Mid(STRING056, 27, 3) == INTEGER001) && (STRING048 == "Y")) Gosub LABEL055
  1082.         If ((Mid(STRING056, 27, 3) == INTEGER001) && (STRING048 == "")) Gosub LABEL054
  1083.     Next
  1084.     FClose 1
  1085.     PrintLn 
  1086.     Wait
  1087.     Goto LABEL003
  1088.     :LABEL038
  1089.     INTEGER005 = 0
  1090.     INTEGER001 = 0
  1091.     Cls
  1092.     PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  1093.     PrintLn " @X5D│  @X51BBS Software Types                                                        @X50│@X07"
  1094.     PrintLn " @X5D│                   @X511  @X5FPCBoard             @X517  @X5FGT Power                       @X50│@X07"
  1095.     PrintLn " @X5D│                   @X512  @X5FWildcat             @X51   @X5F                               @X50│@X07"
  1096.     PrintLn " @X5D│                   @X513  @X5FGAP                 @X51   @X5F                               @X50│@X07"
  1097.     PrintLn " @X5D│                   @X514  @X5FSpitfire           @X51    @X5F                               @X50│@X07"
  1098.     PrintLn " @X5D│                   @X515  @X5FAuntie             @X51    @X5F                               @X50│@X07"
  1099.     PrintLn " @X5D│                   @X516  @X5FTriBBS             @X51    @X5F                               @X50│@X07"
  1100.     PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  1101.     InputStr "@X0BWhat BBS Software to search for", INTEGER001, 11, 1, Mask_Num(), 2 + 128
  1102.     If (INTEGER001 == 0) Goto LABEL003
  1103.     If (INTEGER001 == 1) STRING045 = "P"
  1104.     If (INTEGER001 == 2) STRING045 = "W"
  1105.     If (INTEGER001 == 3) STRING045 = "G"
  1106.     If (INTEGER001 == 4) STRING045 = "S"
  1107.     If (INTEGER001 == 5) STRING045 = "A"
  1108.     If (INTEGER001 == 6) STRING045 = "T"
  1109.     If (INTEGER001 == 7) STRING045 = "G"
  1110.     Cls
  1111.     FOpen 1, STRING052, 0, 0
  1112.     For INTEGER002 = 1 To INTEGER003
  1113.         FGet 1, STRING056
  1114.         If ((Mid(STRING056, 76, 1) == STRING045) && (STRING048 == "Y")) Gosub LABEL055
  1115.         If ((Mid(STRING056, 76, 1) == STRING045) && (STRING048 == "")) Gosub LABEL054
  1116.     Next
  1117.     FClose 1
  1118.     STRING045 = ""
  1119.     PrintLn 
  1120.     Wait
  1121.     Goto LABEL003
  1122.     :LABEL039
  1123.     INTEGER005 = 0
  1124.     INTEGER001 = 0
  1125.     Cls
  1126.     PrintLn " @X5D┌─────────────────────────────────@X50┐@X07"
  1127.     PrintLn " @X5D│  @X51Modem Type Search              @X50│@X07"
  1128.     PrintLn " @X5D│         @X511  @X5Fv.32/v.32bis         @X50│@X07"
  1129.     PrintLn " @X5D│         @X512  @X5FUSR HST              @X50│@X07"
  1130.     PrintLn " @X5D│         @X513  @X5FUSR D/S 14.4         @X50│@X07"
  1131.     PrintLn " @X5D│         @X514  @X5FUSR D/S 16.8         @X50│@X07"
  1132.     PrintLn " @X5D│         @X515  @X5FZyXel (any)          @X50│@X07"
  1133.     PrintLn " @X5D│         @X516  @X5Fv.Terbo              @X50│@X07"
  1134.     PrintLn " @X5D│         @X517  @X5FHayes 28.8           @X50│@X07"
  1135.     PrintLn " @X5D└@X50─────────────────────────────────┘@X07"
  1136.     InputStr "@X0BWhat Modem Type to search for", INTEGER001, 11, 1, Mask_Num(), 2 + 128
  1137.     If (INTEGER001 == 0) Goto LABEL003
  1138.     If (INTEGER001 == 1) STRING045 = "B"
  1139.     If (INTEGER001 == 2) STRING045 = "H"
  1140.     If (INTEGER001 == 3) STRING045 = "D"
  1141.     If (INTEGER001 == 4) STRING045 = "U"
  1142.     If (INTEGER001 == 5) STRING045 = "Z"
  1143.     If (INTEGER001 == 6) STRING045 = "T"
  1144.     If (INTEGER001 == 7) STRING045 = "Y"
  1145.     Cls
  1146.     FOpen 1, STRING052, 0, 0
  1147.     For INTEGER002 = 1 To INTEGER003
  1148.         FGet 1, STRING056
  1149.         If ((Mid(STRING056, 74, 1) == STRING045) && (STRING048 == "Y")) Gosub LABEL055
  1150.         If ((Mid(STRING056, 74, 1) == STRING045) && (STRING048 == "")) Gosub LABEL054
  1151.     Next
  1152.     FClose 1
  1153.     INTEGER001 = 0
  1154.     STRING045 = ""
  1155.     PrintLn 
  1156.     Wait
  1157.     Goto LABEL003
  1158.     :LABEL040
  1159.     INTEGER005 = 0
  1160.     INTEGER001 = 0
  1161.     Cls
  1162.     PrintLn " @X5D┌────────────────────────────────────────────────────────────────────────────@X50┐@X07"
  1163.     PrintLn " @X5D│              @X511) @X5FSuper Regional     @X512) @X5FRegional         @X513) @X5FHub              @X50│@X07"
  1164.     PrintLn " @X5D└@X50────────────────────────────────────────────────────────────────────────────┘@X07"
  1165.     InputStr "@X0BWhat Hub Level to search for", INTEGER001, 11, 1, Mask_Num(), 2 + 128
  1166.     If (INTEGER001 == 0) Goto LABEL034
  1167.     If (INTEGER001 == 1) STRING045 = "═"
  1168.     If (INTEGER001 == 2) STRING045 = "├"
  1169.     If (INTEGER001 == 2) STRING046 = "└"
  1170.     If (INTEGER001 == 3) STRING045 = "├"
  1171.     If (INTEGER001 == 3) STRING046 = "└"
  1172.     If (INTEGER001 > 3) Goto LABEL058
  1173.     If (INTEGER001 == 1) Goto LABEL041
  1174.     If (INTEGER001 == 2) Goto LABEL042
  1175.     If (INTEGER001 == 3) Goto LABEL043
  1176.     :LABEL041
  1177.     Cls
  1178.     FOpen 1, STRING052, 0, 0
  1179.     For INTEGER002 = 1 To INTEGER003
  1180.         FGet 1, STRING056
  1181.         If (Mid(STRING056, 2, 1) == STRING045) Gosub LABEL054
  1182.     Next
  1183.     FClose 1
  1184.     PrintLn 
  1185.     Wait
  1186.     Goto LABEL003
  1187.     :LABEL042
  1188.     Cls
  1189.     FOpen 1, STRING052, 0, 0
  1190.     For INTEGER002 = 1 To INTEGER003
  1191.         FGet 1, STRING056
  1192.         If (Mid(STRING056, 3, 1) == STRING045) Gosub LABEL054
  1193.         If (Mid(STRING056, 3, 1) == STRING046) Gosub LABEL054
  1194.     Next
  1195.     FClose 1
  1196.     PrintLn 
  1197.     Wait
  1198.     Goto LABEL003
  1199.     :LABEL043
  1200.     Cls
  1201.     FOpen 1, STRING052, 0, 0
  1202.     For INTEGER002 = 1 To INTEGER003
  1203.         FGet 1, STRING056
  1204.         If (Mid(STRING056, 5, 1) == STRING045) Gosub LABEL054
  1205.     Next
  1206.     FClose 1
  1207.     PrintLn 
  1208.     Wait
  1209.     Goto LABEL003
  1210.     :LABEL044
  1211.     INTEGER005 = 0
  1212.     STRING045 = ""
  1213.     PrintLn 
  1214.     InputStr "@X0BWhat text to search for", STRING045, 11, 25, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 8 + 128
  1215.     If (STRING045 == "") Goto LABEL034
  1216.     Cls
  1217.     FOpen 1, STRING052, 0, 0
  1218.     For INTEGER002 = 1 To INTEGER003
  1219.         FGet 1, STRING056
  1220.         If ((InStr(Upper(STRING056), STRING045) >= 1) && (STRING048 == "Y")) Gosub LABEL055
  1221.         If ((InStr(Upper(STRING056), STRING045) >= 1) && (STRING048 == "")) Gosub LABEL054
  1222.     Next
  1223.     FClose 1
  1224.     PrintLn 
  1225.     Wait
  1226.     Goto LABEL003
  1227.     :LABEL045
  1228.     INTEGER005 = 0
  1229.     STRING045 = "*"
  1230.     Cls
  1231.     FOpen 1, STRING052, 0, 0
  1232.     For INTEGER002 = 1 To INTEGER003
  1233.         FGet 1, STRING056
  1234.         If ((Mid(STRING056, 26, 1) == STRING045) && (STRING048 == "Y")) Gosub LABEL055
  1235.         If ((Mid(STRING056, 26, 1) == STRING045) && (STRING048 == "")) Gosub LABEL054
  1236.     Next
  1237.     FClose 1
  1238.     STRING045 = ""
  1239.     PrintLn 
  1240.     Wait
  1241.     Goto LABEL003
  1242.     :LABEL046
  1243.     Color 11
  1244.     Cls
  1245.     DispFile STRING054, 4 + 2 + 1
  1246.     Wait
  1247.     Goto LABEL003
  1248.     :LABEL047
  1249.     Color 11
  1250.     Cls
  1251.     DispFile STRING053, 4 + 2 + 1
  1252.     Wait
  1253.     Goto LABEL003
  1254.     :LABEL048
  1255.     Cls
  1256.     STRING045 = ""
  1257.     PrintLn "@X0A        ┌──────────────────────────────────────────────────────────────┐"
  1258.     PrintLn "@X0A        │                     @X0BThe Intelec Network!                     @X0A│"
  1259.     PrintLn "@X0A        │           @X0BNetwork Application  VOID after @X0F", DATE002, "           @X0A│"
  1260.     PrintLn "@X0A        │             @X0BGenerated by INTAPP v", STRING062, " on @X0F", DATE001, "             @X0A│"
  1261.     PrintLn "@X0A        │    @X0BWe thank you for your interest in the Intelec Network!    @X0A│"
  1262.     PrintLn "@X0A        ├──────────────────────────────────────────────────────────────┤"
  1263.     PrintLn "@X0A        │@X0F    BBS @X0E ", STRING004, STRING014, "            @X0E", STRING020, STRING010, " @X0F BBS #   @X0A│"
  1264.     PrintLn "@X0A        │@X0F BBS SW @X0E ", STRING005, "                     @X0E", STRING021, STRING027, " @X0F Voice # @X0A│"
  1265.     PrintLn "@X0A        │@X0F  Modem @X0E ", STRING032, "                        @X0E", STRING018, " @X0F D.O.B.  @X0A│"
  1266.     PrintLn "@X0A        │@X0F  Users @X0E ", STRING041, "                 @X0E", STRING022, STRING033, " @X0F SysOp   @X0A│"
  1267.     PrintLn "@X0A        │@X0F Online @X0E ", STRING042, "           @X0E", STRING023, STRING040, " @X0F Address @X0A│"
  1268.     PrintLn "@X0A        │@X0F HubReq @X0E ", STRING031, "         @X0E", STRING024, STRING008, "  ", STRING039, " @X0F City/ST @X0A│"
  1269.     PrintLn "@X0A        │@X0F Net SW @X0E ", STRING006, "          @X0E", STRING025, STRING019, STRING009, "  ", STRING011, "  @X0FCtry/Zp @X0A│"
  1270.     If (STRING006 == "RoseMail ") Goto LABEL050
  1271.     PrintLn "@X0A        │                                                              │"
  1272.     :LABEL049
  1273.     PrintLn "@X0A        │@X0F  Rules @X0E ", STRING007, "         @X0FLevel:@X0E ", STRING030, "         @X0FPW:@X0E ", STRING035, " ", STRING026, STRING036, " @X0A│"
  1274.     PrintLn "@X0A        │@X0F  Office Use Only: _________________________________________  │"
  1275.     PrintLn "@X0A        └──────────────────────────────────────────────────────────────┘"
  1276.     InputStr "              @X0AS@X0B) Save as shown above    @X0EM@X0B) Modify    @X0CA@X0B) Abort", STRING045, 11, 1, Mask_Alpha(), 2 + 8
  1277.     If (STRING045 == "S") Goto LABEL051
  1278.     If (STRING045 == "M") Goto LABEL005
  1279.     If (STRING045 == "A") Goto LABEL015
  1280.     Goto LABEL015
  1281.     :LABEL050
  1282.     PrintLn "@X0A        │@X0F RoseID @X0E ", STRING038, " ", STRING037, STRING015, "                    @X0A│"
  1283.     Goto LABEL049
  1284.     :LABEL051
  1285.     FOpen 1, STRING064, 1, 0
  1286.     FPutLn 1, "        ┌──────────────────────────────────────────────────────────────┐"
  1287.     FPutLn 1, "        │                     The Intelec Network!                     │"
  1288.     FPutLn 1, "        │           Network Application  VOID after ", DATE002, "           │"
  1289.     FPutLn 1, "        │             Generated by INTAPP v", STRING062, " on ", DATE001, "             │"
  1290.     FPutLn 1, "        │    We thank you for your interest in the Intelec Network!    │"
  1291.     FPutLn 1, "        ├──────────────────────────────────────────────────────────────┤"
  1292.     FPutLn 1, "        │    BBS  ", STRING004, STRING014, "            ", STRING020, STRING010, "  BBS #   │"
  1293.     FPutLn 1, "        │ BBS SW  ", STRING005, "                     ", STRING021, STRING027, "  Voice # │"
  1294.     FPutLn 1, "        │  Modem  ", STRING032, "                        ", STRING018, "  D.O.B.  │"
  1295.     FPutLn 1, "        │  Users  ", STRING041, "                 ", STRING022, STRING033, "  SysOp   │"
  1296.     FPutLn 1, "        │ Online  ", STRING042, "           ", STRING023, STRING040, "  Address │"
  1297.     FPutLn 1, "        │ HubReq  ", STRING031, "         ", STRING024, STRING008, "  ", STRING039, "  City/ST │"
  1298.     FPutLn 1, "        │ Net SW  ", STRING006, "          ", STRING025, STRING019, STRING009, "  ", STRING011, "  Ctry/Zp │"
  1299.     If (STRING006 == "RoseMail ") Goto LABEL053
  1300.     FPutLn 1, "        │                                                              │"
  1301.     :LABEL052
  1302.     FPutLn 1, "        │  Rules  ", STRING007, "         Level: ", STRING030, "         PW: ", STRING035, " ", STRING026, STRING036, " │"
  1303.     FPutLn 1, "        │  Office Use Only: _________________________________________  │"
  1304.     FPutLn 1, "        └──────────────────────────────────────────────────────────────┘"
  1305.     FClose 1
  1306.     Log "IntApp Application completed at " + String(Time()), 0
  1307.     Message 0, "SYSOP", "INTAPP", "Intelec Application", "R", "0", "0", "0", STRING064
  1308.     STRING066 = STRING064 + " >> " + STRING065
  1309.     Shell 1, STRING063, "Type", STRING066
  1310.     Shell 1, STRING063, "Del", STRING064
  1311.     Cls
  1312.     Color 15
  1313.     PrintLn "Thanks for taking the time to apply to the Intelec Network.  The applic-"
  1314.     PrintLn "ation will be sent ASAP to the net host for immediate processing and you"
  1315.     PrintLn "will hear back from us real soon.  Cliff Watkins. Intelec Network Admin."
  1316.     PrintLn 
  1317.     Wait
  1318.     End
  1319.     :LABEL053
  1320.     FPutLn 1, "        │ RoseID  ", STRING038, " ", STRING037, STRING015, "                    │"
  1321.     Goto LABEL052
  1322.     :LABEL054
  1323.     If (Mid(STRING056, 1, 1) == "N") Return
  1324.     If (INTEGER005 == 15) INTEGER005 = 0
  1325.     If (INTEGER005 == 0) Gosub LABEL060
  1326.     INTEGER005 = INTEGER005 + 1
  1327.     STRING056 = "@X0F" + STRING056
  1328.     PrintLn Chr(13), STRING056
  1329.     If (INTEGER005 == 15) Then
  1330.         PrintLn 
  1331.         STRING047 = "Y"
  1332.         InputYN "@X0EView next screen (Enter for more)", STRING047, 14
  1333.         If (STRING047 == "N") Goto LABEL057
  1334.         Cls
  1335.     Endif
  1336.     Return
  1337.     :LABEL055
  1338.     If (INTEGER005 == 15) INTEGER005 = 0
  1339.     If (INTEGER005 == 0) Gosub LABEL060
  1340.     INTEGER005 = INTEGER005 + 1
  1341.     STRING056 = "@X0F" + STRING056
  1342.     PrintLn Chr(13), STRING056
  1343.     If (INTEGER005 == 15) Then
  1344.         PrintLn 
  1345.         STRING047 = "Y"
  1346.         InputYN "@X0EView next screen (Enter for more)", STRING047, 14
  1347.         If (STRING047 == "N") Goto LABEL057
  1348.     Endif
  1349.     Return
  1350.     :LABEL056
  1351.     If (INTEGER005 == 4) Then
  1352.         INTEGER005 = 0
  1353.         Cls
  1354.     Endif
  1355.     INTEGER005 = INTEGER005 + 1
  1356.     STRING057 = "@X0A" + STRING057
  1357.     STRING058 = "@X0F" + STRING058
  1358.     STRING059 = "@X0B" + STRING059
  1359.     STRING060 = "@X0B" + STRING060
  1360.     STRING061 = "@X0B" + STRING061
  1361.     PrintLn Chr(13), STRING057
  1362.     PrintLn Chr(13), STRING058
  1363.     PrintLn Chr(13), STRING059
  1364.     PrintLn Chr(13), STRING060
  1365.     PrintLn Chr(13), STRING061
  1366.     If (INTEGER005 == 4) Then
  1367.         PrintLn 
  1368.         STRING047 = "Y"
  1369.         InputYN "@X0EView next screen (Enter for more)", STRING047, 14
  1370.         If (STRING047 == "N") Goto LABEL057
  1371.         Cls
  1372.     Endif
  1373.     Return
  1374.     :LABEL057
  1375.     FClose 1
  1376.     PrintLn 
  1377.     Goto LABEL003
  1378.     :LABEL058
  1379.     PrintLn 
  1380.     PrintLn "@X0FSorry... you entered an invalid number"
  1381.     PrintLn 
  1382.     Wait
  1383.     Goto LABEL003
  1384.     :LABEL059
  1385.     PrintLn 
  1386.     PrintLn "@X0B   ┌─────── @X0AP@X0B) PCBoard  @X0AW@X0B) Wildcat  @X0AG@X0B) GAP  @X0AT@X0B) TriBBS  @X0AA@X0B) Auntie  @X0AS@X0B) Spitfire"
  1387.     PrintLn "@X0B   │"
  1388.     PrintLn "@X0B    BBS Name          BBS Phone    ST@X0F"
  1389.     Return
  1390.     :LABEL060
  1391.     Cls
  1392.     PrintLn "@X07QWK Networking Software @X0F─────────────────────────────────────────────────────┐@X07"
  1393.     PrintLn "@X0BP@X07) PCBoard @X0BW@X07) Wildcat @X0BG@X07) Gap @X0BA@X07) Auntie @X0BT@X07) TriBBS @X0BS@X07) Spitfire @X0F──────────────┐ │@X07"
  1394.     PrintLn "@X0F╔═══════ @X07Super Reg              @X0BT@X07) v.Terbo   @X0BD@X07) D/S 14.4  @X0BU@X07) D/S 16.8 @X0F───┐ │ │@X07"
  1395.     PrintLn "@X0F║ ┌───── @X07Regional               @X0BY@X07) Hay 28.8  @X0BZ@X07) ZyXel     @X0BH@X07) HST @X0F────────┤ │ │@X07"
  1396.     PrintLn "@X0F║ │ ┌─── @X07Hub                    @X0BB@X07) v.32bis   @X0BO@X07) Other @X0F───────────────────┤ │ │@X07"
  1397.     Return
  1398.  
  1399. ;------------------------------------------------------------------------------
  1400. ;
  1401. ; Usage report (before postprocessing)
  1402. ;
  1403. ; ■ Statements used :
  1404. ;
  1405. ;    1       End
  1406. ;    59      Cls
  1407. ;    31      Wait
  1408. ;    10      Color 
  1409. ;    203     Goto 
  1410. ;    442     Let 
  1411. ;    258     PrintLn 
  1412. ;    443     If 
  1413. ;    3       DispFile 
  1414. ;    29      FOpen 
  1415. ;    30      FClose 
  1416. ;    96      FGet 
  1417. ;    18      FPutLn 
  1418. ;    3       StartDisp 
  1419. ;    1       GetUser
  1420. ;    1       Log 
  1421. ;    42      InputStr 
  1422. ;    4       InputYN 
  1423. ;    36      Gosub 
  1424. ;    6       Return
  1425. ;    1       GetToken 
  1426. ;    2       Shell 
  1427. ;    3       Stop
  1428. ;    2       Beep
  1429. ;    1       Message 
  1430. ;
  1431. ;
  1432. ; ■ Functions used :
  1433. ;
  1434. ;    140     +
  1435. ;    1       -
  1436. ;    414     ==
  1437. ;    31      <
  1438. ;    24      <=
  1439. ;    4       >
  1440. ;    59      >=
  1441. ;    33      !
  1442. ;    62      &&
  1443. ;    27      ||
  1444. ;    146     Len(
  1445. ;    8       Upper()
  1446. ;    32      Mid()
  1447. ;    6       Left()
  1448. ;    12      Chr()
  1449. ;    8       InStr()
  1450. ;    2       Date()
  1451. ;    1       Time()
  1452. ;    1       U_Name()
  1453. ;    1       String()
  1454. ;    2       Mask_Pwd()
  1455. ;    17      Mask_Alpha()
  1456. ;    31      Mask_Num()
  1457. ;    12      Mask_Ascii()
  1458. ;    9       PPEPath()
  1459. ;
  1460. ;------------------------------------------------------------------------------
  1461. ;
  1462. ; Analysis flags : S
  1463. ;
  1464. ; S - Shell to DOS ■ 5
  1465. ;     This may be normal if the PPE need to execute an external command,
  1466. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  1467. ;     or usefull (sorting, maintenance,...). Check!
  1468. ;     ■ Search for : SHELL
  1469. ;
  1470. ;------------------------------------------------------------------------------
  1471. ;
  1472. ; Postprocessing report
  1473. ;
  1474. ;    24      For/Next
  1475. ;    0       While/EndWhile
  1476. ;    9       If/Then or If/Then/Else
  1477. ;    0       Select Case
  1478. ;
  1479. ;------------------------------------------------------------------------------
  1480. ;                 AEGiS Corp - Break the routines, code against the machines!
  1481. ;------------------------------------------------------------------------------
  1482.